If WScript.Arguments.Count = 1 Then

	path = WScript.Arguments.Item(0)
	path = path & "\setIEProxySettings.vbs"
 
	command = "runas /user:Provisioning ""wscript " & path & """"

	set WshShell = CreateObject("WScript.Shell")
	WshShell.Run command
	WScript.Sleep 100
	WshShell.Sendkeys "P@ssW0rd~"   
Else
    MsgBox("Missing Path parameter")
End If

